home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 25 / AMIGAplus Sonderheft 25 (2000)(Falke)(DE)(Track 1 of 4)[!].iso / c / lzxTOlha < prev    next >
AmigaDOS Script File  |  2000-05-08  |  777b  |  48 lines
  1. .key LZXARCHIVE/A,LHAARCHIVE/A,TEMPDIR/A
  2. .bra {
  3. .ket }
  4.  
  5. ; $VER: "It became Lha" version 1.0 by Jarmo Laakkonen
  6.  
  7.  
  8. set tempdir {TEMPDIR}
  9. makedir $tempdir
  10. if warn
  11. echo "Couldn't create directory $tempdir"
  12. quit 5
  13. endif
  14. assign back: ""
  15. lzx x {LZXARCHIVE} $tempdir/
  16. if warn
  17. echo "Couldn't unpack {LZXARCHIVE}
  18. cd $tempdir
  19. delete #? all quiet
  20. cd back:
  21. assign back: remove
  22. quit 5
  23. endif
  24. cd $tempdir
  25. lha a -r back:{LHAARCHIVE} #?
  26. cd back:
  27. delete $tempdir all quiet
  28. ;delete #? all quiet
  29. cd back:
  30. assign back: remove
  31. echo "Testing archive {LHAARCHIVE}"
  32. lha t {LHAARCHIVE}
  33. if warn
  34. echo "Problems with archive {LHAARCHIVE}"
  35. echo "Deleting corrupt data"
  36. else
  37. echo "All Done"
  38. ask "*NDo you want to keep {LZXARCHIVE}? (y/N)"
  39. if warn
  40. echo "Ready"
  41. else
  42. delete {LZXARCHIVE}
  43. endif
  44. unset $tempdir
  45.  
  46.  
  47.  
  48.